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ZTITLE Paging, 
4-000' ,.LIST(NOOBJECT)) = 


S eee RARER REAR AAAAAAAAAAAAARAAAA AAA AA AAA A AAA AEAAAE AAA 


'® * 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
i: ALL RIGHTS RESERVED. * 
' * 
'‘® THIS SOFTWARE IS FURNISHED UNDER A LICENSE * 
'w ONLY IN ACCORDANCE WITH THE TERMS S$ * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH * 
's COPIES THEREOF MAY NOT BE PROVIDED OR OTHER QO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF EREBY * 
ie TRANSFERRED. . 
ea 
'# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. % 
¥ 
* 
& 
* 
* 
H 


ix DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
ie 
PITITITITI LILI LLL LLL LLL LLL LLL LLL LLL LLL Lilli 
i] 
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IBIL 
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0 ! 
8 H FACILITY: Network Control Program (NCP) 
0 3 ABSTRACT: 
0 3 i States and data for the parsing of NCP X.25 protocol 
8 ; module parameters. 
99 ENVIRONMENT: VAX/VMS Operating System 
904 | AUTHOR: Tim Halvorsen, July 1981 
004 MODIFIED BY: 
04 i V03-006 RPG0006 Bob Grosso 04-Nov-1982 
045 ! Change "MAXIMUM CIRCUIT seconds’ prompt to 
be$ "MAXIMUM CIRUIT count’. 
048 1! V03-004 RPG0004 Bob Grosso 15-Sep-1982 
049 ! flag when qualifier has been parsed so that ALL check 
bee } in NCPVRBACT will work properly. 
03¢ i v03-004 TMHO004 Tim Halvorsen 19-Aug-1982 
27 Make CLEAR X-P GROUP FRED DTE 123 work. 
055 i v03-003 RPGO003 Bob Grosso 02-Aug-1982 
8 2$ ! dd X-P MAX CIRCUITS. 
5 : Add X-P MULTI-NETWORK SUPPORT. 


Hat Sovtesh Rette toring IERCION 24:8) MMAR he Gf 


Add new ALL prompts for CLEAR DTE and CLEAR GROUP. 
v03-002 RPGO002 not EL 28-Jun-1982 
C prompting o CLEAR X=P GROUP ABC to only 
prompt for ALL, and FLEA i X=-P DTE 1234 to prompt 
Change parameter type "aa CHN from SAD to RNGL. 


v001 TMHO001 Tim Halvorsen 05-Apr-1982 
Fix prompting. 
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; 9 i } ZSBTTL ‘Definitions’ 

; ie 71 1! 

eR: if 1 ! INCLUDE FILES: 

3; 6 6f6 > Ve 

; 74 «1 

5 8 re? 7 LIBRARY /bEBS:NAALIORY, 

3 6 6 1 LIBRARY ‘'LIBS:NCPLIBRY 

; f 07 | LIBRARY 'SYS$LIBRARY: RY PAMAC’ ; 

$ 0 $78 7 3 

; 1 Bay ; : EXTERNAL REFERENCES: 

; 6s oes 1 ACT_DFN ! Action routine externals 
; 083 1 EXTERNAL 

3; 8 084 1 NCPSGL_QUALPRS; 

; & 0085 1 

; 87 p06 1! 

: 88 0087 1 ! OWN STORAGE: 

; 689 0088 1! 

; Ww 0089 1 

; (91 0090 1 OWN 

; 36 4 ; GROUP_SPECIFIED; ! Flag to indicate if GROUP specified or not 
3; 0093 1! 

5. 0094 1 ! LITERALS 

; 0095 1! 

; wT 0096 1 

; 0097 1 LITERAL 

3 0098 1 QUALPRESENT = 1; ' Qualifier was present on command Line 


NCPSTAMPR 
04-000 


1 SSBTTL 


Wear ros 


ee ee el el ee ce ee ee ee ee ee el ee ee el el el el el ee el el el eel cel el eel eel el el eel el eel el eel el eel eel eel cel ell eel el el eel cel eel cel cl 


oo 
oc 


WANI ATI PIPONIPININPININIDYD 2 2 OO OS 


wy oo 
VVVUVUVVVVVVUVVUVVUVVVVUVVVUVVUVVUVVVVUUVUUU 


ee ed ed ed nd ed od od od 8 ed dd 


PAA BEEBE EEE EWI 
SEU UN AS SSLSEGRAGN LS SOS 


AER O08 NAVE WIN 20 NDNA WN OOO NOAU EWN OOO NOUE WROD 


PUPP Be BB BB BEE EAA IIIA AI PP NONPONYNUNINPD 2 St OS OS OD 


VVVVVVVVVVVUVUVUUUDU 


11 
.25 Protocol Module Parsin 1b-5¢ -1984 00:54: AX-11 Bliss-32 V4.0-74 
t Parameter blocks . 1 =360 71382 99:24:98 NCP LSREINGES TAMER B30¢4 


"Set Parameter blocks’ 


SET X25-PROTOCOL Parameter Blocks 


BUILD_PCL 
(MPR, ! Module X25=PROTOCOL 
DTE, TKN, PCXP_DTE, , 
ry TKN, PCXP GRP, ° 
STA, NUMB, PCXP_STA, , 
CTM. NUMW, CXPICTM, , 
NET. TKN, PCXP"NET. . 
LIN, TKN, PCXP"LIN. . 
CHN, RNGL, PCXP-CHN, . 
MCH, NUMW, PCXP"MCH, . 
DBL, NUMW, PCXP"DBL, . 
DWI. NUMB. PCXP"DWI. . 
MBL, NUMW, PCXP"MBL. . 
MWI, NUMB, CXPIMWI. ; 
MCL. NUMB, PCXP"MCL. . 
MRS, NUMB. PCXP"MRS, . 
MST. NUMB, PCXP_MST, , 
CAT. NUMB. PCXP"CAT, . 
CLT. NUMB, PCXP-CLT. . 
RST, NUMB, PCXP"RST. . 
STT. NUMB. PCXP"STT, . 
GDT. TKN, PCXP-GDT, , 
GNM, NUMW, PCXP-GNM, . 
GTY. NUMB, PCXP“GTY. . 
MNS, NUMB, PCXP_MNS, , 
MCI, NUMW, PCXP"MCI. . 
oe END, e 6 
) 
BUILD_PBK 
(MPR, ! Module X25-PROTOCOL 
STAON, LITB, NMASC_XPRST_ON, MPR STA, 
STAOFF, LITB, NMASC_XPRST_OFF, MPR_STA, 
STASHU, LITB. NMASC-XPRST-SHU, MPR7STA. 
CTA, NUMW, @ oO 
DTE, TKN oO ro 
KOT. L1t6, NMASC_ENT_KNO, MPR_DTE, ! KNOWN DTES 
KGR, LITB, NMASC_ENT_KNO, MPR_GRP, ! KNOWN GROUPS 


LIN, TKN, , , 
CHN, RNGL, , , 
ACH, NUMW, * fe 
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NCPSTAMPR X.25 Protocol Module Parsin ihese -1984 00:54: AX-11 Bliss-32 V4.0-74 Page 6) 
¥042000 Clear Parameter blocks ° 12-88-13 9 28:98 ENCP. SRE WEBS TAMPR o3004 ° (4) | 
3 : } ; ! ZSBTTL ‘Clear Parameter blocks’ | ; 
. § 185 1! | : 
3 } : § : } CLEAR X25=-PROTOCOL Parameter Blocks : 
: 191 1 1 ; 
3 136 . ! § : BUILD_PCL ‘ 
; 19% 4 191 | (CPR, ! Module X25-PROTOCOL : 
; 196 Pp 138 1 DTE, TKN, PCXP_DTE, , | : 
3 130 : 130 : GRP, TKN, PCXP_GRP, , : 
; 199 e 136 1 STA, LITB, PCXP_STA, , : 
; 200 P0197 1 CT, LITB, PCXP-CTM, , : 
3 01 P0198 1 NET, LITB, PCXP_NET, , e 
3 0¢ P 0199 1 LIN, LITB, PCXP-LIN, , : 
: 20 P0200 1 CHN, LITB, PCXP-CHN, , : 
: 206 P0201 1 MCH, LITB, PCXP"MCH, , : 
; 205 P 0 0¢ 1 DBL, LITB, PCXP-DBL, . ‘ 
: 207 Pp 9 04 1 MBL, LITB, PCXP-MBL, , ; 
; 208 P0205 1 MwI, LITB, PCXP"MWI, . : 
; 209 P 0 96 1 MCL, LITB, PCXP"MCL, , ; 
: 210 P0207 1 MRS, LITB, PCXP"MRS, , : 
3 211 P0208 1 MST, LITB, PCXP"MST, , : 
; eg P0209 1 CAT, LITB, PCXP_CAT, , : 
: 21 P0210 1 CLT. LITB, PCXPCLT, . : 
: gi P0211 1 RST, LITB, PCXP-RST, , ‘ 
: 215 P 0 1g 1 STT, LITB, PCXP"STT, , : 
> 216 P0213 1 GDT, TKN PCXP-GDT, , : 
: 217 P0214 1 GNM, LITB, PCXP_GNM, , : 
: + . 8 1? : GTY, LITB, PCXP_GTY, , ‘ 
3 220 P0217 1 MNS, LITB, PCXP_MNS, , | : 
: 2e1 P0218 1 MCI, LITB, PCXP"MCI, , : 
i 388 P0219 1 : 
P 22 Pp 0220 1 e END, we € 7 
3 24 P 0s53 1 : 
: $82 0558 | ; 
3 st ‘ 8S : : BUILD_PBK 
3 4 4 0 $ ' (CPR, ' Module X25=-PROTOCOL 
: 331 p 0ce8 ALL, LITB, 0, VRB_ALL, 
3 3 Pp 6 0 1 STA, LITB, 0. . 
: 3 Pp ; 4 CT, LITB, 0, . 
: 5 fa § 1 DTE, TKN, , , ' OTE is a gust ttter 
; 236 P 1 KDT, LITB, NMASC_ENT_KNO, CPR_DTE, i KNOWN DTE : 
3 37 P 4 1 GRP, TKN, . ,. ' Sroup is a gual itter 
: 238 P0235 1 KGR, LITB, NMASC_ENT_KNO, CPR_GRP, i KNOWN GROUP | 
: 240 P 1 LIN, LITB, 0, , 
5 41 P 3 1 CHN, LITB, Q. , 
+ 262 P 0 1 MCH, LITB, 0, , 
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! GROUP DTE is a qualifier 
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BUILD_SDB 
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yO42000 Prompt strings ° 1ergee=1 88s 93:25:98 «FANS SABES Pampa o 3504 * 
3 es $5 } ZSBTTL ‘Prompt strings’ 
: ¢ 6s 1! | 
$ 66 1! Build prompt strings 
: r ¢ promp | | 
: ef e3 1 BIND | 
; 276 0 1 
; 275 P 0271 1 PROMPT_STRINGS 
3 76 P i 1 
3 7 P 0275 1 
: 8 P 0274 1 DAT, ' (DTE number, GROUP name, or KNOWN): '‘, 
: 379 P t3 KWN, ' (DTES, GROUPS): '.; 
3; 281 P 0277 1 CAT, ‘Call timer (1-255 seconds): ', 
: Hy P 0278 1 CLT, ‘Clear timer (1-255 pogends: . 
3 @ P0279 1 DBL, ‘Default data (1-65535 bytes): ‘, 
: 284 P 0280 1 DWI, ‘Default window OF blocks): ‘', 
; 285 P 0281 1 MBL, ‘Maximum data (1-65535 bytes): ‘, 
; 286 P 0 S 1 MCL, ‘Maximum clears (1-255): °, 
; 287 P 0283 1 MRS, ‘Maximum resets i= 55): °, 
; 288 P 0284 1 MST, ‘Maximum restarts 1-255): ‘, 
; 289 P 8 3? 1 MWI, ‘Maximum window (1-255 Slostesi . 
; 290 ig $ 1 NET, ‘Network name (1-16 characters): ‘, 
: 291 P 0287 1 RST, ‘Reset timer fi" 5 seconds): ', 
: 3 P 0288 1 STT, ‘Restart timer (1-255 seconds): ', 
: 29 P 0289 1 
: 296 P0290 1 DTE, ‘DTE number (1-16 digits): ', 
: 295 P 0291 1 CHN, ‘Channel list Gat iette9 3by commas): ‘', 
; 296 P 0 38 1 CT™, ‘Counter timer seconds): ', 
: 297 P 02935 1 LIN, ‘Line name “ & -cou.t): ', 
5 98 P 0294 1 STA, ‘State (ON, OFF, SHUT): °, 
; 299 P 0295 1 
; 300 P 0 38 1 GRP, ‘Group name (1-16 characters): ', 
; 301 P 0297 1 GDT, ‘Group DTE number (1-16 digits): ', 
: 4 P 0298 1 GNM, ‘Group number - ¢ 5, 
; 30 ig 5444 1 GTY, ‘Group type (BILATERAL): ‘, 
: 304 P 03500 1 
: 305 P 0301 1 MNS, ‘Multi-network support CGMABLE DISABLE): °, 
; 306 P 030¢ 1 MCI. ‘Maximum circuits (1-65585 count): °, 
3s 307 B38 1 ° 
; 308 She 1 
; 309 P0305 1 PROMPT_STRINGS 
; 10 P 88 1 (CPR, 
$ 11 P 1 
: \ P 0308 1 DAT, ° (DTE number, GROUP none or KNOWN): °, 
; 13 p 309 KWN, ° DTES, GROUPS): ': 
: 315 P0311 1 ALL, ‘ALL X.25 protocol parameters (Y, Ws ° 
; 1 P \§ 1 ALLS, "ALL X.25 protocol group parameters (Y, nS: ' 
; 31 P0313 1 aut -. "ALL X.25 protocol DTE parameters (Y, NM: ', 
: 318 P0314 1 CAT, ‘Call timer (y, WD: ', 
: 19 P 0315 1 CLT, ‘Clear ste (Y, N): a 
3 0 Pp 16 1 MCL, "Maximum clears vv. Ge *, 
: 1 P0317 1 MRS, ‘Maximum resets (¥, NW): °, 
: § P \8 1 MST, ‘Maximum restarts (Y, ND: °, 
. P0319 1 MWl, ‘Maximum window (Y, ND): °, 
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SSBTTL 


feat rE Mens Ronis 


"Declare entry points to TPARSE tables’ 


Declare entry points to this TPARSE table 


SINIT_STATE (NCPSG_STTBL_MPR, NCPSG_KYTBL_MPR); 


FORWARD 
ST_MPRDTE VECTOR [0], ' Set x25-Protocol DTE 
STMPRGRP VETTOR [0]. i Set x25-Protocol GROUP 
ST_CPRDTE VECTOR ° ' Clear X25-Protocol DTE 
ST_CPRGRP VECTOR ° ' Clear X25-Protocol GROUP 
ST_CPR: VECTOR 3 ! Clear X25-Protocol 

GLOBAL BIND 
NCP$G_STTBL_MPRDTE = ST_MPRD 
NCP$G_KYTBL_MPRDTE = NCPSG RY T6L.. MPR, 

NCP$G_STTBL_MPRGRP = ST P 
CP$G_KYTBL_MPRGRP = NCP$G_KYTBL_MPR, 
NCP$G_STTBL_-CPR = ST i 
NCP$G_KYTBL_CPR = NCP yTBL ePR. 
NCPSG_STTBL-CPRDTE = ST ager 
NCP$G_KYTBL_CPRDTE = NCP G KYL _MPR, 
NCP$G-STTBL-CPRGRP = ST_CPRGRP 
NCP$G_KYTBL_CPRGRP = NC (PSG. KYTBL_MPR; 
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042000 Ret X25-PROTOCOL Module Perbacters at 7 99:24 98 NCP. SRCINCPS STAMPR B35" . (7) 

3 7 ! ZSBTTL ‘SET X25-PROTOCOL Module Parameters’ : 
; 1! ; 
3 ! SET/DEFINE MODULE X25-PROTOCOL parameter states : 
i 3 . 
s 37 Pp 1 SSTATE (ST : 
; i Pp $3 (CS st MMPR INIT)) ; 
: 37 1 : : 
: 7 4 rt i —_— (IPAS EOS, $T_MPR_PMT_DAT) : 
3 8 P 8 1 (TPAS-LAMBDA,~ST_AMPR_DAT) * : 
; 380 74°=«4 ); ; 
; 3 ee : ; ; 
; 68 7 ; Dispatch to here from NCPSTAVRB if SET DTE parsed 3 
: 385 P 0379 1 S$STATE (ST_MPRDTE, : 
: Hy] e 39 : tee MPR _INIT), ST_MPR_DAT_DTE) : 
. ee ; 
; ae 0384 : Dispatch to here from NCPSTAVRB if SET GROUP parsed : 
: % P 0386 1 $STATE (ST_MPRGRP, ; 
3 9 P bas 1 ((ST_MPR_INIT), ST_MPR_DAT_GRP) : 
: 394 388 (1 3 ¢ 
3 33 $494 : : 
: 397 P 0361 1 SSTATE (ST_M 
; 398 P 0 3 1 (PAS. Pr AMBDA’ TPAS_E ACTSCLRLONG, , ,! Mark GROUP not specified yet ; 
; 399 393 1 GROUP _ SPECTFIEDS) | : 
: 300 398 1 
; rts} 396 1! Fevoratee which protocol sub-database we are talking ghout : 
; 40 $444 1! (due to grouping restrictions, the command must not m ; 
; 404 0398 1! sub-database parameters). The sub-database may be either : 
; 405 0399 1! protocol, closed user group, or DTE parameters. : 
; 406 00 1! : 
; to8 P 402 i SSTATE (ST_MPR_PM : 
: ret 608 : (TPAS S CAMBDK- "RCTSPRNPT... PMT$G_MPR_DAT)); ; 
3 411 P 0405 1 SSTATE (ST_MPR_DAT, ! Determine whether GROUP or DTE parameters : 
: tig P 5] 1 ("GRouP’, STL was _DAT_GRP), : 
; «41 P 0407 1 (*DTE', ST-MPR_DAT_DTE), : 
> 414 P0408 1 ("KNOWN' , STIMPR_DAT_KWN) , : 
3 6415 4 1 (TPAS_ LAMBDA)); : 
: ois 410 1 : 
: rd} | tig : : Prompt for protocol parameters : 
: 420 614 1 : 
: 621 P 0415 1 S$STATE ( : 
i 49e P 041g 1 (fPAS : 
3; 4 1 1 (IPAS FO OA, ST_MPR_PRC)); : 

| 
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: 426 418 1 
: 4 5 P 4 PROMPT STATES 
: 4 : P 0421 1 CAT, CLT, DBL, DWI, MBL, MCL, MRS, MST, MWI, NET, RST, MNS, 
; 6 § 4 : 1 §TT5 
6 423 1 
: 430 P 0404 1 $STATE ( 
i 43 425 (TPAS_LAMBDA, ST_MPR_DOIT)); 
; ¢ t ; i Prompt for closed t 
Py H rom or ctiose ser gro arameters 
é : p user group param 
am P 0431 1 SSTATE (ST_MPR_DAT_GRP, 
: 4 8 4 é ((SE_GRP_NAME),, ACTSSAVPRM, QUALPRESENT, NCPSGL_QUALPRS, PBK$G_MPR_GRP)); 
: 440 P 0434 1 $STATE (ST_MPR_PMT_GRP, 
1 44 4 5 (TPAS_LAMBDA,,, TRUE, GROUP_SPECIFIED)); ! Mark GROUP specified 
$46 P 04 5 1 $STATE ( 
; 444 P0438 1 (fPA$_EOS) 
: 449 0439 (TPAS~LAMBDA,ST_MPR_PRC)); 
; 447 P Bea PROMPT_STATES 
; 449 bees GDT, GNM, GTY) 
: 451 P0445 1 S$STATE ( 
; 43¢ 0446 1 (TPAS_LAMBDA, ST_MPR_DOIT)); 
: 387 oec8 1! 
: 455 0449 1: Prompt for DTE parameters 
: 438 bey 
: 458 P 043 1 $STATE (ST_MPR_DAT_DTE 
; 499 433 ((SE_DTE_NUMBERS,, ACTSSAVPRM, QUALPRESENT, NCPSGL_QUALPRS, PBKSG_MPR_DTE)); 
: 461 P 0455 1 SSTATE (ST_MPR_PMT_DTE, 
: 46 P 46 1 (TPAS$_EOS) 
; 463 ey (TPAS-LAMBDA,ST_MPR_PRC)); 
; 465 P 459 PROMPT STATES 
; 4s? 461 CHN, CTM, LIN, STA, MCI) 
: 469 P 28 1 $STATE (ST_MPR_DOIT 
; 470 P 464 (TPRS_E0S, TPAS_EXIT, ACTSVRB_UTILITY, , , SDBSG_MPR), 
: $f rs a 
: 67% 468 1! Dispatch on KNOWN keyword during promptin 
; 475 i p y g prompting 
+ 47 P 0471 1 SSTATE (ST_MPR_DAT_KWN, 
; 478 42g (TPAS_LAMBDA)); 
: 480 P0474 1 COMMAND _PROMPT 
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Ps : P 425 (MPR, KWN, NCPS_INVKEY, 
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; 4B P if (*GROUPS", ST_MPR_PAT_GRP, ACTSSAVPRM.,, PBKSG_MPR_KGA) 
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; 8 p 19 1 te"), 
H be P f : Foren Aes ST_MPR_PRC_MNS), 
: 381 p 0578 | sstate C 
; S P 0574 «1 (*"NETWORK', ST_MPR_PRC_MNS) 
; P 373 (TPAS_LAMBDA, ST_MPR_PRC_MNS), 
| ie Be ee 
; oR 258 1: Dispatch on DTE keyword. Decide if this is a DTE database qualifier 
; 588 580 1! or a DTE parameter qualifier by GROUP (GDT). In both cases, the 
: 390 28) ! keyword is the same, so we must decide the NICE code by context. 
: 591 383 1 
; 236 P bege 1 SSTATE (ST_MPR_PRC_DTEX, 
; 9 P 0585 1 (TPAS_LAMBDA, ST_MPR_PRC_GDT, ACTSTESTLONG,,, GROUP_SPECIFIED), 
; 59% 0586 1 (TPAS-LAMBDA, STIMPR-PRC_DTES); 
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SSTATE 


SSTATE 


SSTATE 


iicdte=i9es 90:0 
X.25 protocol state 


(ST_MPR_STA, 
KEYWORD_STATE 
(MPR, 

STAOFF, ‘OFF’, 
STAON, ‘ON’, 
STASHU, ‘SHUT’, 
»); 


X.25 protocol type 


(ST_MPR_GTY, 
KEYWORD_STATE 
(MPR, 


GTYBIL, ‘BILATERAL’, 
)); 


X.25 protocol multi-network support 


(ST_MPR_MNS, 
KEYWORD_STATE 

(MPR, 

MNSENA, ‘ENABLED* , 
MNSDIS, ‘DISABLED’, 
doz 
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NCPSTAMPR X.25 Protocol Module Parsin 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-742 Page 20) N 
¥O42000 CLEAR x3 -PROTOCOL Module Pirencters 12-Sep-19 4 90:24:99 NCP. SRCINCPSTAMPR.B32; 1 . 1§ V 
; 704 a } ZSBTTL ‘CLEAR X25-PROTOCOL Module Parameters’ ; 
: 705 93 1! : 
3 70% eae ! CLEAR/PURGE MODULE X25-PROTOCOL parameter states ‘ 
: 708 4 1 ; 
; 709 P 0697 1 SSTATE (ST_CPR ° 
; 710 P 698 1 ((ST_CPR_INIT)) : 
s ii 38 1 ); ‘ 
; ne 0 1 ‘ 
i i p oF > 1 SSTATE (tpas_£0S, ST_CPR_PMT_DAT) 
: 715 Pp : j 1 (TPAS-LAMBDA,~ST_CPR_BAT) : 
; rie 07 1 bg ‘ 
3; 7 14 1 ‘ 
; 718 7 $ 1! ‘ 
: 719 07 1! CLEAR X25-Protocol DTE ‘ 
: 720 0708 1! ‘ 
3; 721 P 0709 1 SSTATE (ST_CPRDTE, ° 
; 7 é P0710 1 ((ST_CPR_LINIT), ST_CPR_DAT_DTE) : 
ee 0711 +1 ); ; 
: 724 Oris 1 : 
s ved 14 1! ; 
: 726 714 1! CLEAR X25-Protocol GROUP . 
: Te? 0715 1! : 
: 728 P o718 1 SSTATE (ST CPRGRP, e 
; 729 P0717 1 ((ST_CPR_INIT), ST_CPR_DAT_GRP) 
; 730 0718 #1 ); 
; «731 14 1 
3; 7 § 720 1 
; FF P 0721 1 SSTATE (ST_CPR_INIT, 
 e P 07 § 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSCLRLONG,,, ! Mark GROUP not specified yet 
: 735 97 1 GROUP_SPECTFIEDS); 
 F 724 «1 
3 737 0725 1! 
; 738 0726 1! Determine which protocol sub-database we are talking about 
; 739 fi , a (due to grouping restrictions, the command must not mix 
; 740 728 1! sub-database parameters). The sub-database may be either 
3 741 0729 1! protocol, closed user group, or DTE parameters. 
; 74 3? » &% 
3; 7% 731 «1 
3 744 P 07 § 1 SSTATE (ST_CPR_PMT_DAT 
; 245 0733 (TPAS_LAMBDA,, ACTSPRMPT,,, PMT$G_CPR_DAT)); 
; 74 P $93¢ 1 SSTATE (ST_CPR_DAT, ! Determine whether GROUP or DTE parameters | 
> 748 P 07 g 1 (* GROUP", ST_CPR_DAT_GRP), 
: 749 P 07 1 (*DTE', ST~CPR-DAT_DTE), 
; 750 P 07 3 1 ("KNOWN', ST_CPR_DAT_KWN), 
: 751 7 1 (TPAS_LAMBDA) ); 
3 P3¢ 740 1 
; 75 741 1! 
; 756 742 1! Prompt for protocol parameters 
; 9 745 1! 
: £26 744°=«1 
; 75 P0745 1 $STATE ( 
: 758 P0746 1 (fPA$_EOS) | 
: 759 747 1 (TPASZLAMBDA, ST_CPR_PRC)); | 

| 

| 

| 
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¥042000 CLEAR X25-PROTOCOL Module Poreneters 1 =30P 71382 90: 28555 ENCP. SRE NCPSTAMPR.B32; . a) 

: 760 ree 1 3 
; 761 P0749 1 QUERY_STATES 3 
; 76 P0750 1 (CPR, 3 
; te? f ; i ALL, CAT, CLT, MCL, MRS, MST, RST, STT, MNS) : 
: 765 P 07 1 SSTATE ( 3 
: 7 754 1 (fPAS_LAMBDA, ST_CPR_DOIT)); ; 
3; 755 «1 ; 
; 768 of $ 1! 3 
; 769 7 1! Prompt for closed user group parameters $ 
: 770 £38 :% : 
; 771 7 q $ 
; rE P 0760 1 SSTATE (ST_CPR_DAT_GRP, $ 
: o? 43 : ((SE_GRP_NAME),, ACTSSAVPRM,,, PBK$G_CPR_GRP)); : 
; 775 P $788 1 SSTATE (ST_CPR_PMT_GRP, : 
: 76 Ooee : (TPAS_LAMBDA,,, TRUE, GROUP_SPECIFIED)); ! Mark GROUP specified : 
; 778 P 0766 1 $STATE ( 3 
; 779 P 0767 1 (fPA$_EOS), ; 
; 780 0768 1 (TPAS_LAMBDA,ST_CPR_PRC)); ; 
: 781 0769 1 s 
; 78 P0770 1 QUERY_STATES_S ; 
: 78 P Q771 1 (CPR, 3 
: «784 P Ore 1 ALL, ALL2. F 
: 785 07735 «1 GDT, GDT) é 
; 786 0774 #1 3 
: 787 P 0775 1 $STATE ( $ 
; 788 0776 1 (TPAS_LAMBDA, ST_CPR_DOIT)); ; 
: 789 0777 1 3 
; 790 0778 1! é 
; 791 0779 1! Prompt for DTE parameters ; 
; FF 0780 1! 3 
; 79 0781 1 3 
3; 794 P 14-14 1 SSTATE (ST_CPR_DAT_DTE : 
; £99 0785 1 ((SE_DTE_NUMBERS,, ACTSSAVPRM,,, PBKSG_CPR_DTE)); : 
; 797 P et 1 SSTATE (ST_CPR_PMT_DTE, : 
: 798 P 0786 1 (TPA$_EOS), 3 
; 799 0787 1 (TPAS_LAMBDA,ST_CPR_PRC)); ; 
; 800 fas: 1 3 
; 801 P 7 9 1 QUERY_STATES_S ; 
: 80 P0790 1 (CPR, 5 
: 87 P 0791 1 ALL, ALL3. e 
3 1s 1 CTM, CTM) : 
; 805 793 (1 3 
; 06 P 0794 1 $STATE (ST_CPR_DOIT : 
; 807 P0795 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDBSG_CPR), ; 
; 808 38 1 ); : 
; 809 797 «#1 3 
; 810 38 7% 3 
; 12 444 ! Dispatch on KNOWN keyword during prompting : 
: 81 1 1 F 
3 14 P : 1 SSTATE (ST_CPR_DAT_KWN, : 
; 815 8 g 1 (TPAS_LAMBDA) ); : 
; 816 0804 1 3 
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3 1 : 
; 1! : 
3 § 2 ! } Dispatch on KNOWN keyword : 
$ 0 rh] 1 : 
é 1 P 084 1 SSTATE (ST_CPR_PRC_KWN ‘ 
: ¢ 4g ((SE_CPR_KWA), ST_CPR_PRC)); : 
; P 0850 1 SSTATE (SE_CPR_KWN, 
; 65 P ue . 
; » 1 KEYWORD_STATE 
4 6 P 1 (CPR, 
; 868 P 1 
3 9 e te 1 KDT, ‘DTES* 
: 870 P 0 36 1 KGR. 'GROUPS', 
Dad Rie 
: i oBso 1 
3: 874 0860 1! 
3; «875 0861 1! Dispatch on MAXIMUM keyword 
; 87 Bees 1! 
; 87 8635 1 
; 878 P 0864 1 $STATE (ST_CPR_PRC_MAX, 
: 879 P 0865 1 
; 880 P 0 1 DISPATCH_STATES 
; 881 P 0 1 (CPR, 
3 eee P 0868 1 
: 88 e ty 94 1 MBL, ‘DATA' 
: 884 P 0870 1 MCI. ‘CIRCUITS’, 
; 885 P 0871 1 MCL, ‘CLEARS’, 
; 886 P 0 Le 1 MRS, ‘RESETS’ 
; 887 P0873 1 MST. ‘RESTARTS’, 
; 888 P 0874 1 MWI, ‘WINDOW', 
; 889 P 0875 1 
: 890 BP b876 1 ) 
; 891 0877 1 ); 
3; 89 8 1 
; 89 79 «1! 
3; 894 80 1! Dispatch on DEFAULT keyword 
; 895 tt : ! 
3 897 . oBas } SSTATE (ST_CPR_PRC_DEF, 
3 345 P 5 1 DISPATCH_STATES 
3 P § 1 (CPR, 
; 901 ra 1 
3 208 P 3 1 DBL, ‘DATA’, 
:; 90 P 1 DWI, ‘WINDOW’, 
: 904 P 0890 1 
: 905 P + : ; 
. oo 
: 309 95 1! MULTI keyword dispatch 
; 910 38 1! 
; «6911 97 «(1 
> 912 P 0898 1 S$STATE (ST_CPR_PRC_MUL, 
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; 913 P 0899 1 (t="), 

H a P 3 , } (TPAS_LAMBDA, ST_CPR_PRC_MNS), 

: 216 P é 1 SSTATE ( 

i 3 P 0904 | (IPAS LANBBAS ST CPR PRC ANS) 

: 319 308 1 tie. + eR, I et ag: 

: ar 

we i 8B 1 Dispatch on DTE keyword. Decide if this is a DTE database qualifier 
; 9 0909 1! or a DTE parameter qualifier by GROUP (GDT). In both cases, the 
3 : 3 Bete : keyword is the same, so we must decide the NICE code by context. 
: 926 0912 1. 

; 927 P 091 1 SSTATE (ST_CPR_PRC_DTEX, 

: 928 P 0914 1 (TPAS_LAMBDA, ST_CPR_PRC_GDT, ACTSTESTLONG,,, GROUP_SPECIFIED), 
; 929 0915 1 (TPAS"LAMBDA, STICPRIPRC-DTES); 
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$ 9 1 ; 
3 309 9 1! ‘ 
3 298 9 1} Sub_expressions : 
3 38 9 1! : 
; 970 954 (1 : 
; «971 P 0955 (1 SUB_EXPRESSIONS , 
3 3f6 P 09 § 1 (CPR, : 
: Bi B 988 ALL, TPAS_E0S 
: 975 b 335 1 _ ; 
3 378 P 0960 1 STA, TPAS_LAMBDA, : 
s 97 - 38) 1 CTM, TPAS “eer . 
: 978 P 09 : 1 DTE, (SE_BTE_NUMBER), : 
s 97 P 0965 1 GRP, (SE_GRP_NAME), : 
3 44 P 0964 1 NET, TPAS_LAMBDA, . 
; 981 P 0965 1 LIN, TPAS_LAMBDA, : 
: 3e¢ P 0966 1 CHN, TPAS_LAMBDA, : 
; 9 P 0967 1 DBL, TPAS_LAMBDA, . 
> «6984 P 0968 1 DWI, TPAS_LAMBDA, : 
; 985 P 444 1 - TPAS_LAMBDA, : 
> 986 P0970 1 MWI, TPAS-LAMBDA, 
; 987 P 0971 1 MCL, TPAS_LAMBDA, 
; 988 P O3¢ 1 MRS, TPAS_LAMBDA, 
; «989 P0973 1 MST, TPAS_LAMBDA, 
; 990 P0974 1 AT, TPAS_LAMBDA, 
; 991 P0975 1 LT, TPAS_LAMBDA, 
3 838 p bons 1 RST, TPAS_LAMBDA, 
; 99 P 0977 1 STT, TPAS_LAMBDA, 
3 994 P 0978 1 GDT, (SE_BTE_NUMBER), 
: 995 P0979 1 . TPAS_LAMBDA, 
: 996 P 0980 1 GTY, TPAS_LAMBDA, 
; 997 P 0981 1 a AS_LAMBDA, 
: 998 P0982 1 MCI. TPAS~LAMBDA. 
; 999 0983 1 
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"Define Subexpressions' 


Define Subexpressions from Library 


SEM_ALL ' ALL parameter 

SEM_LINE ID ' Device name peeing 
SEM_DTE_RUMBER ! DTE call number string 
SEM_GRP_NAME ! Group name 

SEM_NET_NAME ! Network name 

SEM_RNG_LIST ' Range Lists 

SEM_QUERY ! Query state subexpressions 
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